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16-Sep-1984 00:11:1 VAX=11 FORTRAN y3.4-56 Page 1 
EH ety Te DISKSVMSMASTER: ERF .SRCJOPNOUTFIL.FOR: ? 


Version: *v04-000' 
PARA AAALAAAALLALALALELE SALE EEE EE EEE EERE EE EEE REE REECE EEE EEE EEE EEE EEE aaa 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED »* 

ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 

INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
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TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ComPokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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AUTHOR: Elliott A. Drayton CREATION DATE: 15-Dec-1982 
Functional description: 
This module opens the file specified by OUTPUT_FILE_STRING. 


If the open is successful then we returns to the caller, 
else we signal the error and stop the image. 
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ZR Modified by: 

boa) vO3-005 EAD0189 Elliott A. Drayton 6-Jul-1984 

pOe§ Remove LSTLUN from the parmeter List, it is in SYECOM. | 
4 v03-004 £AD0131 Lliott A. Drayton 99-Apr-1984 | 
5 Changed the carriage control from fortran to List. 
5 v03-003 EAD0003 Elliott A. Drayton 23-Aug-1983 
3 Add an assignment for FORMS when SYSSOUTPUT is not uesed. 
50 v03-002 EAD0002 Elliott A. Drayton 23-Jun-1983 
2) Changed the default for FORMS to true. 
3g v03-001 EAD0001 Elliott A. Drayton 20-Jun-1983 
2¢ Changed error message from SYE to ERF. 
5 ee 
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16-Sep- 711: ° -4- 
w$ep-198e 14:09:49 DISKSVMSMASTER:LEAF-SRCJOPNOUTFIL.FoRST® > 


| 
| 
Subroutine Open_out_file ( output_file string ) | 


Include ‘SRC$:SYECOM.FOR/NOLIST’ 


338333383 


if (output_file_string .ne. ‘SYSSOUTPUT') then 


Forms = .TRUE. 

open( unit = Iistlun, . 

1 name = acai pa Pitot. site 6c 
= oO 


00, 
00: 
00' 
003 
00: 
003 
00: 
00' 
00: 
00' 
00! 
: 
O00. 
OO 
00. 


1 | 
1 Character*(*) output_file_string | 
Ag Integers4 output_file_string_length 
138 Integer*4 fnum,rmssts,.rmsstv,iunit,condval 00° 
Ag? Integer*4 Term_dev 0" 
139 Integer sysS$output 09 
199 External sys$output_open 00" 
4 External istlun_open id 
0¢ Forms = .FALSE. oy. 
9 04 Printer = .FALSE. So! 
4 
0 Lstlun = 2 00, 
0507 00; 
0 4 Termdev = 4 Ba! 
( 
910 Sys$output = 6 Bet 
‘ 
° \ output_file string length = LEN (output_file_string) 00; 
14 open( unit = sysSoutput, 
15 1 name = ‘sys$output', 
18 1 type = ‘new’, 
1 1 access = ‘sequential’, 
18 1 useropen = sys$output_open, 
1? 1 carriagecontrol = ‘List*) 
4 
5 
$ : type © "ne . | 
3 1 arrees a "somusnttel*. 
1 usorepen = ist iun_gpen. 
: 1 carriagecontrol = ‘list*) 
§ ' ates | 
2 JIAND(DEV_CHAR, TERM_DEV) .£Q. 0) PRINTER = . TRUE. 00! 
5 ELSE 
istlun = sys$output | 
ENDIF 
4 
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PROGRAM SECTIONS 


OPEN_OUT_F ILE ib-Se Sep-1984 00:11:12 — VAo11 FORTRAN Y3.4-56 Page 5 
-Sep-1984 DISKSVMSMASTER:LERF .SRCJOPNOUTFIL.FOR; 
tg return 
te 200 Call ERRSNS (fnum,rmssts,rmsstv,iunit,condval) 
re If (rmssts 90..9 
4 Call LIBSINSV 3" 03 ,condva 
48 Call tIBSSTGNA L ¢ WAC eondeat) XVAL(3) ,2VALCiunit), 
9 49 1 out out Tile, string(1:output_file_string_length)) 
e 
0251 Call LIBSINSV (3,0,3,rmssts 
$5 enpgett LIBSSIGNAL eke reste ZVAL (rmsstv)) 
i 
0255 Print 9000 
° 28 9000 Format (ix, "ERF-F-OPENERR, FATAL OPEN ERROR ON FILE’) 
0258 Print 9010, output. file_string 
tT Fe 9010 Format (1x, 
0260 
0261 Call exit 
0262 end 
Name Bytes Attributes 
CODE 268 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 78 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
g $SLOCAL 244 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
SYECOM 44 PIC OVR REL GBL SHR NOEXE RD WRT LONG 


ENTRY POINTS 
Address Type Name 


0-00000000 OPEN_OUT_FILE 
VARIABLES 

Address Type Name Address Type Name 

-00000014 [#4 cONpVA -00000012 L*i CP_11750 

-00000011 L*1 1780 -00000015 Lei CP_11722 
Led ERYPTR FLAG -0 B20 ie DEV_CHAR 
L*1 END _VACUE -0000001D L*1 EOF-FLAG 
I*4 FNUA - 4 L*4 FORAS 
I*4 JUNIT - C L*l LINES 
bole LSTLUN - F I*4 MAILBOX CHANNEL 
CHAR OPTIONS AP- 8 04@ CHAR OUTPUT FILE_STRING 
I*4 OUTPUT_FILE_STRING_LENGTH 3- 08 L*4 PRINTER 


Total Space Allocated 634 
} 
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OPEN_OUT_FILE 1§-Sep-1984 90: Nh: 1g VAX-11 FORTRAN i 4-56 page 4) 
-Sep-1984 14:09:4 DISKSVMSMASTER: CERF .SRCJOPNOUTF IL.FOR; 
1*4 RECCNT - $3 I*4 RECORD_SIZE 
I*4 RMSSTS - f I*4 RMSSTV 
1*4 SYSSOUTPUT - 9 18 I*4 TERM_DEV 
L*1 VALID CLASS -000 pA L*1 VALIB_CPuU 
L*1] VALID-ENTRY -0000001C L*1 VALID_TYPE 
=90000018 L*1 VOLUME_OUTPUT 
LABELS 
Address Label Address Label Address’ Label 
0-00000077 200 1-00000013 9000' 1-0000003F 9010' 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
4 yee FORSEXIT FORSOPEN 
IBSIN LIBSSIGNAL LSTLUN_OPEN 


LIBSINS 
SYSSOUTPUT OPEN 


| 
COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:OPNOUTFIL/OBJ=0BJ$:OPNOUTFIL MSRC$:OPNOUTFIL 
/ CHE CK= (NOBOUNDS OVERFLOW NOUNDERF LOW) | 
/DEBUGs (NOSYMBOLE, TR ACEBA ACK ) 
E MAP) 
/F77 /NOG_FLOATING 714 /OPTIMIZE /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 1.85 seconds 
Elapsed Time: 338! seconds 
Page Faults: 11 

Dynamic Memory: 170 pages 
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